unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  ShellApi, mmsystem,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, jpeg, CheckLst, Menus, ActnMan,
  ActnColorMaps, Grids, Calendar, IniFiles, DateUtils;

type
    TUstawienia = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    TimePicker: TDateTimePicker;
    Button1: TButton;
    CheckBox1: TCheckBox;
    CtempKomp: TCheckBox;
    CzasZamkSys: TCheckBox;
    CheckBox4: TCheckBox;
    Label2: TLabel;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    CRelayBoard: TCheckBox;
    Gkomunikaty: TMemo;
    procedure Button1Click(Sender: TObject);
    

      private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Ustawienia: TUstawienia;

implementation

uses Unit1;

{$R *.dfm}

procedure TUstawienia.Button1Click(Sender: TObject);
var
    PlikINI: TIniFile;
      begin
         PlikINI:= TIniFile.Create(ExtractFilePath(Application.ExeName)+'programy.ini');
         PlikINI.WriteString('Ustawienia', 'ZamkniecieSystemu', TimeToStr(TerminationTime));
      TerminationTime:= TimePicker.Time;
         PlikINI.WriteBool('Ustawienia','PotwierdzenieZamkieciaSystemu',CzasZamkSys.Checked);
         PlikINI.WriteBool('Ustawienia','ZamkniecieSystemuTemperatura',CtempKomp.Checked);
         PlikINI.WriteBool('Ustawienia','BledyRelayBoard',CRelayBoard.Checked);
         PlikINI.Free;
         Form1.MKomunikaty.Lines.Insert(0, 'ZAPISUJE NOWE USTAWIENIA.') ;
     end;
end.
